home *** CD-ROM | disk | FTP | other *** search
/ PD 64 Classic 2 / PD_64_Classic_2_2000_-_Side_A.d64 / mix supreme (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  3KB  |  87 lines
  1. 0 print"[153][147]":poke53280,12:poke53281,0
  2. 1 print"[175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  3. 2 print"[145][159]              [205]ix [211]upreme               "
  4. 3 print"[145][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
  5. 4 print"[159]1 = [201]nterview-[212]ime"
  6. 5 print"2 = [204]eserbrief [195]hampignon"
  7. 6 print"3 = [204]eserbrief [208]impyman"
  8. 7 print"4 = [206]ius"
  9. 8 print"5 = [193].[202].'s [214]iew [207]n [205]usic"
  10. 9 print"6 = [193]nimal [206]itrate [201][201] [201]nfo"
  11. 10 print"7 = [212]ime-[212]able [193][206] [201][201]"
  12. 11 print"8 = [199]amers [200]all [207]f [198]ame"
  13. 12 print"9 = [211]aupac aktuellpopuell"
  14. 13 print"10 = [200]auptmenuepopue"
  15. 30 input"[215]as willst [196]u, [193]lter";a:print"[145][145][145]"
  16. 31 if a<1 or a>10 then0
  17. 32 if a = 1 then goto105
  18. 33 if a = 2 then goto205
  19. 34 if a = 3 then goto305
  20. 35 if a = 4 then goto405
  21. 36 if a = 5 then goto505
  22. 37 if a = 6 then goto605
  23. 38 if a =10 then goto705
  24. 39 if a = 7 then goto805
  25. 40 if a = 8 then goto905
  26. 41 if a = 9 then goto1005
  27. 105 poke828,0
  28. 106 print chr$(147) chr$(17)
  29. 107 print "load"chr$(34);"inter*";chr$(34); ",8
  30. 108 [153] [199](17) [199](17) [199](17) [199](17) "run"
  31. 109 [151]631,13:[151]632,13:[151]198,2
  32. 110 [153] [199](19);:[128]
  33. 205 [151]828,0
  34. 206 [153] [199](147) [199](17)
  35. 207 [153] "load"[199](34);"champ*";[199](34); ",8
  36. 208 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  37. 209 poke631,13:poke632,13:poke198,2
  38. 210 print chr$(19);:end
  39. 305 poke828,0
  40. 306 print chr$(147) chr$(17)
  41. 307 print "load"chr$(34);"pimp*";chr$(34); ",8
  42. 308 [153] [199](17) [199](17) [199](17) [199](17) "run"
  43. 309 [151]631,13:[151]632,13:[151]198,2
  44. 310 [153] [199](19);:[128]
  45. 405 [151]828,0
  46. 406 [153] [199](147) [199](17)
  47. 407 [153] "load"[199](34);"nius";[199](34); ",8
  48. 408 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  49. 409 poke631,13:poke632,13:poke198,2
  50. 410 print chr$(19);:end
  51. 505 poke828,0
  52. 506 print chr$(147) chr$(17)
  53. 507 print "load"chr$(34);"music";chr$(34); ",8
  54. 508 [153] [199](17) [199](17) [199](17) [199](17) "run"
  55. 509 [151]631,13:[151]632,13:[151]198,2
  56. 510 [153] [199](19);:[128]
  57. 605 [151]828,0
  58. 606 [153] [199](147) [199](17)
  59. 607 [153] "load"[199](34);"an-*";[199](34); ",8
  60. 608 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  61. 609 poke631,13:poke632,13:poke198,2
  62. 610 print chr$(19);:end
  63. 705 poke828,0
  64. 706 print chr$(147) chr$(17)
  65. 707 print "load"chr$(34);"saupac";chr$(34); ",8
  66. 708 [153] [199](17) [199](17) [199](17) [199](17) "run"
  67. 709 [151]631,13:[151]632,13:[151]198,2
  68. 710 [153] [199](19);:[128]
  69. 805 [151]828,0
  70. 806 [153] [199](147) [199](17)
  71. 807 [153] "load"[199](34);"tim*";[199](34); ",8
  72. 808 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  73. 809 poke631,13:poke632,13:poke198,2
  74. 810 print chr$(19);:end
  75. 905 poke828,0
  76. 906 print chr$(147) chr$(17)
  77. 907 print "load"chr$(34);"gam*";chr$(34); ",8
  78. 908 [153] [199](17) [199](17) [199](17) [199](17) "run"
  79. 909 [151]631,13:[151]632,13:[151]198,2
  80. 910 [153] [199](19);:[128]
  81. 1005 [151]828,0
  82. 1006 [153] [199](147) [199](17)
  83. 1007 [153] "load"[199](34);"saupac-info";[199](34); ",8
  84. 1008 print chr$(17) chr$(17) chr$(17) chr$(17) "run"
  85. 1009 poke631,13:poke632,13:poke198,2
  86. 1010 print chr$(19);:end
  87.